Voorbeeld van de methode ReplaceLine

Het volgende voorbeeld bestaat uit twee stappen. De eerste For...Next-lus maakt gebruik van de methode InsertLines om 26 steeds langere initiδle segmenten van het alfabet in CodePanes(1) in te voegen, te beginnen met "a". De laatste ingevoegde regel is het hele alfabet.

De tweede ForàNext-lus maakt gebruik van de methode ReplaceLine om elke even regel met de laatste letter in de tekenreeks die eerst de regel daarvoor in beslag nam, te vervangen. Oneven regels blijven ongewijzigd.

For I = 1 to 26
    Application.VBE.CodePanes(1).CodeModule.InsertLines I, Mid$("abcdefghijklmnopqrstuvwxyz", 1, I)
Next I
For I = 1 to 13
    Application.VBE.CodePanes(1).CodeModule.ReplaceLine 2*I, Mid$("abcdefghijklmnopqrstuvwxyz", 1, I)
Next I